sync on
autocam off
color backdrop rgb(0,0,0)
load image "ground.jpg",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1
position matrix 1,-500,0,-500
position camera 0,100,0
make object sphere 1,20
position object 1,0,0,500
set ambient light 20
color ambient light rgb(64,64,128)
set normalization off
set point light 0,0,0,500
position light 0,0,100,0
color light 0,512,512,255
set light range 0,1000
make light 1
set spot light 1,45,90
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
while inkey$()<>"x"
set cursor 0,0
print "LIGHT COMMANDS (X to Exit)"
print "direction x:";light direction x(1)
print "direction y:";light direction y(1)
print "direction z:";light direction z(1)
a#=a#+1
if a#>359 then a#=a#-360
rotate light 1,0,a#,0
sync
endwhile
delete light 1
delete object 1
set normalization on
end
